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Dicas 

ESP: 

o TKna 

parapsicologia 



Quebra-cabega: 
o banqueiro 
e o ministro 

Renumerando 
programas 

em 30 segundos 




Caiacte ristic as Tecnicas 

• Unguagem BASIC 

• 10 Kbytes de ROM. 

• 16 ou 48 Kbytes de rnembria 
RAM. 

• 40 teclas e 160 fungoes. 

• GravacSo de programas em 
flta cassete comurrt. 

• Input e Output de dados. 

• Video: aparelhos deTV B&P 
ou colorido 

• Funcfies especiais 
HIGH-SPEED. 

• SomOpcional. 

• Joystick, irnpressora. 

Prego de lancamento: 
Cit 179.850,00 (16K) 
CrS 249.850,00 (48K) 
(Precosujeitoa alteragao) 
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Editorial 



Os companheiros do TK 

Hd alguns anas, ocorreu uma 
segunda revoiucao no area da Inlor- 
matica; depois dos computadores cfo- 
mesticos, vieramoscomputadaresde 
baixo custo. O grande pioneiro hi o 
ing!6s Clive Sinclair que es/d atual- 
mente inundando o mercado norte- 
americano com computadores ven- 
didos por menos de 100 ddtares. 

Este tipo de computador usa um 
basic cujo interpretador ocupa um 
BOM de 8k: o BASIC- TK. 

Vdrios computadores usam o 
BASIC-TK, entre ehs o Sinclair 
2X81, o Timex 1000, o TK82-C, etc. 

H6 tambem outras versOes am- 
ptiadas do BASIC- TK: sao as uiiliza- 
das peh ZX Spectrum no Inglaterra e 
aquela utilizada pelo TK85 no Brasil. 
Ambos os equipamentos podem re- 
ceber Software escrito em BASIC- 
TK. 

Dado o baixissimo preco destes 
equipamentos (no Brasil o TK82-C e 
vendidopor menos delOO mil cruzei- 
ros), a quanfidade de usuarias e gi- 
gantesca. 

Criou-se, dentro do mundo da 
Informdtica, normalmenle dominado 
peios profissionais, um sub-con;unto 
todo especial: o dos usuahos do 
BASIC-TK. 

Eles sao altamente significative^ 
nao so peta qualidade, pois ha entre 
eles muitos amadores entendidos, 
mas tamb&m pefa espantosa quant i- 
dade. 

Para compartilhar desta enorme 
comunhSo de c4rebros, chamos esta 
Bevisto. Ela sera o veiculo de inter- 
cdmbio entre os usudrios do BASIC- 
TK no Brasil. Al6m disto ela trard to- 
das as mais importantes contribui- 
goes do pessoal fa de fora e (por que 
nao?) levari ao Exterior todas as coi- 
sas bonitas que n6s brasiteiros esta- 
mas fazendo com os nossas TK. 




MICROHOBBY I 



PROGRAMA DOi 
LEITOR 




1 REM 5SMUEL EJCHEL 
1000 PRINT RT 2,10; FLIP-FLOP' 



1010 


PRINT RT *,0,"CONUERTER B& 


o*ea 


33 tit *£**H***#" 


' 1O20 


DIM A t9J 


1030 


DIM BO) 


■ iado 


LET I =B 


• lase 


LET J = 1 


loea 


FOR S=l TO 9 


s la 70 


Lt 1 HISla-l 


10B0 


LET B <5) =1 


10S0 


NEXT S 


1100 


LET R (5) =1 


1110 


LET B (5) =-1 


1120 


PRINT RT 11,11,". '■ 


ii3<a 


FOR 5=1 TO 9 


I ilia 


IF R (S) =-1 THEN PRINT RT 18 


.. ie+s.; 'B" 


1150 


IFR(5>=1 THEN PRINT RT 10 , 


r ia+s, 


r .il6B 


NEXT S 


117B 


FOR S=l TO 9 


lies 
a 

-119a 


IF Bt5)OBlS! THEN SOTO al3S 


NEXT S 


1200 


PRINT FIT 21,8, " 



5EGUIU EM 
' OUER JOGRR D 



TMEN SOTO 146B 



iai8 PRINT RT 19,13; 

"'12281 PRINT RT 20,2;"! 
"; I; " FLIPS-FLOPS" 

1230 PRINT RT 21,8; 

E NOIJO T 

124-0 POKE 16437,255 

•1250 PAUSE 30000 

-Viase LET Q*=INKEYf 

'.'-1270 IF 0$ = "S" THEN GOTO 1300 

1280 IF Q*="N" THEN GOTO 1650 

1290 GOTO 1240 

' 1300 CLS 

1318 GOTO 1800 

, V 3S e ^ PRINT RT 21,0; "EXECUTE UM F 

•LIP-FLOP 

133© POKE 16437,355 

1340 PRUSE 30080 

1350 IF INKEYt="" THEN GOTO 1350 

''1360 IF INKEY( = "7" THEN GOTO 140 

1370 IF INKEY*="5" THEN GOTO 15S 



1380 IF INKEV*="e'" THEN GOTO', 160 

1390 GOTO 1330 

'1400 IF fi <■_!) =-1 

i 1430 LET 1=1+1 

, 1430 IF <J=1 OR J=9 THEN GOTO"' 150 



1440 LET flUJJ Kflia) *t-il 

14S0 LET R tj-l) =R U-1) * (-If 

11SB LET R ( J+l) =R (U + l) I l-ll 

1470 GQTOi'1130 

1488 PRINT RT SI, 0; "FLIP -FLOP ER 

RRDO TEMTE NOURMENTE" 

f 1490 GOTO '.'1338 

i/„1500 LET R 11 J =R(1) *t-l) 

'1510 LET R 19) =R <9> * < -1) 

1528 IF J=l THEN LET R (2> =R (2J * ( 

'1530 IF 0=9 THEN LET fl!B>=fttSlt( 
„ -1) ,-» 

1S40 GOTO 1130 

■•' 1550 IF U=l THEN GOTO 1330 

1560 PRINT RT 11,10+0, " " 

!'157B LET J=J-1 

1580 PRINT RT 1 I , 10 +J; "_" 

1590 GOTO 1330 

1500 IF J=9 THEN GOTO 1330 

-1618 PRINT RT H.lBtJ;" " 

1660 LET J=J+1 

,1638 PRINT RT H.lBtJj"-" 

1540 GOTO 1330 

1658 CLS 

1560 PRINT AT 11,11; "«jB" 

•' 1670 STOP ^^ 

16B0 SRUE "FLIP -FLOS" 

1690 RUN 

1700 STOP 



Flip-Flop 



Samuel Ejchel 



Euro QUEBRA-CABEgA em 
que se pretende converter a se- 
quence illl'llll 
(* = asterisco normal; S = aste- 
risco em fundo escuro) na nova 
1*1 no menor nuraero 

de conversOes ("FLIP-FLOP") 
possiveis. Valem as seguintes re- 
gras: 

1 ) Sb se pode comandar a conver- 
sao de um * em S — Nao vice- 
versa! 

2) Ao se converter um elemento 
da sequencia, os adjacentes 
tambem se convertem, ou seja, 
se o da direita for Beoda es- 
querda * , por exemplo, ap6s a 
ordem de conversao um se tor- 
na * e o outro t*l, respectiva- 
mente. 

3) Os extremos sao "adjacentes", 
ou seja, comandada a conver- 
sao do elemento da extrema di- 
reita, o da extrema esquerda 
tambem se converte. 

No video e criado um indi- 
cador "™ " que se move a direi- 
ta ou a esquerda por atuacao 
nas teclas 8 e 5 respectivamen- 
te, O indicador estando sob 
. um * , sua conversao e coman- 
dada por acdo na tecla 7. O 
"joystick" pode ser usado em 
lugar das teclas; cuidado ape- 
nas com o botao de "disparo" 
pois, atuando nele, o programa 
e interrompido. 

O niimero de conversoes 
("Flip-Flops") e acumulado e 
informado ao fim do jogo. Ten- 
tative s erradas (de converter IS 
diretamente em * ) nao sao con- 
tadas, 

Devido a limitagoes de lin- 
guagem a conversao e um pou- 
co demorada. Tenha calma e 
aguarde a ordem para novos 
movimentos. 

BOA SORTE! 
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Genius 

Carlos Eduardo Rocha Salvato Este programa 6 a adapiagao, habilidade em memorizar sequ§n- 
(14 anos) para o TK, de ura famoso brinque- cias. O programa exige expansao 

do, no qual voc§ demonstra sua e £ auk>explicativo, 




1 REM CfiRLOS EDLIftRDO ROCHR 

10^0 REM I^H#°Wwffl° ?1 

1010 CLS ""■ " ' ■ ' 

1020 FRST 

103B DIM P i 101 

104-O DIM U$(ia,SJ 

1050 DIN BS(10,3) 

1060 DIM F$(lo;si 

1070 CLS 

1838 PRINT " *-*********6 E N I U 

S****-»*4***" 

1090 PRINT .^/'EM OUE NIUEL UOC 

E GOSTRRIR DE JOGRR rf " 

1100 PRINT "1 E O MBIS FftCIL" 

1110 PRINT "9 E O MHIS DIFICIL" 

1120 PRINT "ESCOLHR UH NUMERO EN 

TRE 1 E 9" 

1130 POKE 164-37,255 

114-0 PAUSE 30000 

1150 LET I*=INKEY* 

To e il-ie ***"*•" OR I*>"9" THEN GO 

1170 LET DI=URL (I».l 

1130 LET F$ CD ^ HBB^H ' 

1190 LET FJ (21 = "■ ■" 

1200 LET F*(3»="| ■" 

1210 LET F$i4>="B ■-■ 

1220 LET F$i5) ^"^^■B" 

1230 FOR J=l TO 5 

1248 LET B*IJ)=F*C1) 

12S8 NEXT U 

1360 FOR J=l TO 10 

1270 LET P ( J) =INT fRND*4) +1 

1280 NEXT J 

1230 CLS 


1540 IF N<>P(L) THEN GOTO 1650 

1550 GOSUB 1770 

1E60 NEXT L 

15 70 PRINT RT 4,S; "NUMERO DE RCE 

nTOS Ul -_ J j *_1 j 

1580 PRUSE 50 
15 90 NEXT U 
1600 PRUSE 100 
1610 CLS 




XU^IcJ t-'HINI HI 1 1 .1 ;-' . ■IJifeMJAtl" 
1S30 PRINT RT XS'.S: "OOB^Sli^^ 


164-0 GOTO 1700 

1650 PRINT HT 16,0; "UOCE ERROU . . 

1&60 PRINT -O CERTO ERR "; 
1670 FOR fi = ± TO J 

1630 PRIf-fT PCfll , "-'■: 

16 90 NEXT R 

1700 PRINT HT 19,0, "OUER TENTRR 

NOURMENTE ?" 

1710 POKE 16437,255 

1720 PBUSE 30000 

1730 LET I*=INKEY$ 

1740 IF I*="S" THEN RUN 

1750 IF I*="N" THEN GOTO 2070 

1760 GOTO 1710 

1770 FOR e=I TO 5 

1780 IF N=l THEN LET fl=0 

1790 IF N=2 THEN LET R=3 

1300 IF N = 3 THEN LET R=16 

1310 IF N=4 THEN LET R=24- 

1820 PRINT RT CQ *1 ) +4 , B; F? (O) 

1630 NEXT €J 

1840 PRINT RT 7,R+3;CHRt (N+15S) 

1850 RETURN 

I860 FOR Q=l TO S 

1870 IF N=l THEN LET H =0 

1660 IF N=2 THEN LET fl =3 

1S90 IF N=3 THEN LET R=16 

1900 IF N=4 THEN LET R=24 

1910 PRINT BT (0*13 +4,R; B* i&\ 

IS 20 NEXT O 

1930 RETURN 

1940 LET S=INT CRND*24) +1 

1350 FOR 0=1 TO 5 

1360 FOR U = l TO 5 

1970 LET U* CU) =" 

1980 NEXT U 

1990 PRINT RT (0*1) +10,S; F* CO) 

2000 NEXT O 

t;010 PRINT RT 13,5+3; CHR* (INT C 

RND*4) +1+156) 

2020 PRU5E 20 

2030 FOR W=l TO 5 

2040 PRINT BT (Ut 1) + 10 , S; US (Ul 

2050 NEXT U 

20O0 RETURN 

2070 CLS 

2080 PRINT RT 11 . 11 : "SHB" 

2O90 STOP ^^ 

2103 SfiUE "GENIUS" 

2110 RUN 

2120 STOP 


1310 PRINT "I TKS2-C--G 
E N I U S |" 


1330 FOR N = l TO 4. 

134-0 GOSUB 1770 

1350 NEXT N 

13toO PRUSE 100- (DI#10) 

1370 FOR J=l TO S 

1380 FOR L = l TO «J 

RND*4) +1 

14-00 LET NzPfL) 

1410 GOSUB 1360 

1420 PRUSE 50 

14-30 GOSUB 1770 

14-4.0 IF DI>6 THEN GOSUB 134-0 

14S0 NEXT L 

1460 FOR L=l TO J 

1470 POKE 16*37,255 

1430 PRUSE 300-C20*N) 

1490 LET I*=INKEV* 

1500 IF I*= "" THEN GOTO 1650 

1510 IF I*<"1" OR IJ>"4" THEN GO 

TO 1470 

1520 LET N = URL <I*i 

1S30 GOSUB 1360 
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Desenho 



Luis Fernando B. P. Melio Barreto 
(12 anos) 

Vocepodeia2erdesenhosin- 
criveis na tela, mas tome cuidado! 
Se voce bater na moldura o pro- 
grama parara. Voc§ pode compe- 
tir com seus amigos para ver quem 
faz o desenho mais bonito, sem ba- 
ter na moldura. 
Comandos: 

Linha continua: 5 = esquerda 
8 = direita 

6 = baixo 

7 = cima 

Linha tracejada: 1 = esquerda 

2 = direita 
4 = baixo 

3 = cima 



*m 



s 

10 

20 

30 
4-0 
50 

so 

70 

80 

90 

100 

110 

120 

130 



REM DESENHO 

REM LUIS FERNANDO S 

BfiRRETO 
FOR N=0 TO 20 
PRJNT AT H.,0; 



P. HELLO 
'; OT N.. 31; **■ 



NEXT N 

FOR N=0 TO 31 

PRINT RT 21., N 



AT 0,N; "| 



NEXT N 

LET X = i 

LET Y = l 

PRINT HT X,Y; "M" 

POKE 164-37,255 

PAUSE 30000 

IF INKEY$="5" THEN LET Y =Y - 



IF INKEY$="5' 

14-0 IF INKEY* = "7' 

150 IF INKEY$="S" 

1S0 



THEN LET X=X + 
THEN LET X=X- 
THEN LET Y=Y+ 



IF INKEY$="4" THEN LET X=X+ 

f 

170 IF INKEY*="3" THEN LET X=X- 
! 

130 IF INKEY$="2" THEN LET Y=Y+ 

190 IF INKEY*="1" THEN LET Y=Y- 



300 


GOTO 


90 


210 


STOP 




220 


SRUE 


■'DESENHST 


230 


RUN 




24-0 


STOP 





QUEBRA - CABEQA 




O Banqueiro 
e o Ministro 

Era uma vez um pequeno pals fictfcio 
no qual havia apenas um banqueiro e um 
unico super- ministro, 

Um dia o super-ministro, preocupa- 
do com u ma pre visao de i nf latjao de 280% 
ao ano, chamou o banqueiro e disss: 

"Vou tabelaros juros: desie momenta 
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em diante voce podera cobrar, no mAxi- 
mo, 100% aoano." 

O banqueiro empalideceu . Af inal de 
contas ele tambem estava prevendo uma 
inflacao de 280% ao ano. Muito esperta- 
mente, entSo, fez uma contraproposta: 

"Para facilitar os calculos, posso co- 
brar 50% por semestre? Isto nao vai alte- 
rar nada pois estou dividindo o prazo ao 
meio, mas tambem estou reduzindo a taxa 
de juros a metade." 

O ministro pensou com seus botces: 

"Este cara pensa que sou idiota: 50% 
ao semestre nao e a mesma ooisa que 
100% ao ano: no primeiro semestre o ca- 
pital fica multiplicado por 1 ,5 e no segun- 
do semestre novamente por 1,5 logo no 
1 im do ano o capital e multiplicado por 1 ,5 
x 1,5 = 2,25. Isto corresponde a uma taxa 
de 125% aoano. Mascornoistoeinferiora 
180% ao ano, ja que a inflacao sera de 
280% , eu ainda saio ganhando." E autori 
zou a mudanga. 

O banqueiro, porem, ainda nao esta- 
va satisfeito: 

" Para facilitar mais ainda , ao inVes de 
di vidi r a taxa de j uros e O prazo por 2 , sera 
que poderia dividir por 4?" 

"Explique-se melhor"- bravejou o 



super-ministro. 

"Catma" respondeu o banqueiro, 
"estou apenas propondo cobrar 25% por 
trirnestre". 

Mais uma vez o super-ministro iez um 
calculo mental: 

1,25x1,25x1,25x1,25 = 2,44 
como isto correspondia a 1 44% ao ano e o 
rniximo suportavel seria 180%, o super- 
ministro topou. 

Matreiramente o banqueiro pensou: 

"Poaitivamente este sujeito, e um 
trouxa, Vou aproveitar a chance!" 

Assumiu um ar o mais c&ndido possi- 
vel e arriscou: 

"Bern, para nao ser obrigado a con- 
sults -lo a toda hora, poderfamos estabele- 
cer uma coisa : eu divido a taxa de juro de 
100% por n e o ano tambem por n, ja que 
isto nao faz diferenca . Desta maneira con- 
forme o caso, eu poderia cobrar juros por 
semestre, ou por mes ou ate por dia." 

O super-ministro fez um rapido cal- 
culo, estendeu a mao e disse: 

"Negocio fechado!" 

Mais do que depressa, antevendo 
uma taxa de juros por segundo o banquei- 
ro apertou a anao estendida e se retirou f e- 
liz. 



E agora perguntamos aos leitores: 

A) Qua! dos dois toi mais esperto? 

B) Se o banqueiro adotar como unidade 
de tempo o milesimo de segundo, um 
capital C, ao cabo de um ano aumen- 
tara para NC. 

Quanta vale N? 

C) Quanta vale o logaritmo neperiano 
deste niimero N? Por que? 

Mais uma vez esperamos receber 
suas respostas acompanhadas de um 
programinha que calcule a taxa de juro 
anual nos casos em que o banqueiro utili- 
ze como unidade de tempo o ano, o se- 
mestre, o trirnestre, o mes, a semana, o 
dia, a hora, o minuto e o segundo. Espe- 
ramos, tambem, que voc& entenda que o 
caso citado e ficticio! 
As cartas devem ser envidas para 
MICROMEGA P. M. D. Ltda. 
Caixa Postal n? 60081 
CEP 05096 - Sao Paulo - SP 

Contendo seu nome, endereco e al- 
guns dados pessoais (idade, profissao, 
etc.). 

A melhor carta que chegar a reda- 
cao ate 30 de junho sera publicada, rece- 
bendo seu autor remuneragao corres- 
pondente a de um artigo. 



Solugao do quebra-cabega do n? zero 

O problema da pulga minutes e 7 segundos. Portanto, aalterna- • Apos o 3? Salto 



Edson Tadeu Tanaka 

Na revista n? foi proposto o que 
bra-cabeca da pulga e eu resolvi aceitar 
o desafio, 

Vejamos como atacar o problema. 
Nas figuras , vemos a pobre pulguinha 
apes o seu IP salto. Completado o salto, 
a tira e esticada, aumentando seu com- 
primento de 10 cm. Coma o comprimen- 
to toi multiplicado por 2, isto e, de 10 cm 
passou para 20 cm, a posicao onde esta- 
va a pulga tambem toi deslocada, isto e, 
a posicao inicial 1 cm apos esticar trans- 
formou -se em 2 cm. Como mostra a figu- 
ra 2. A pulga, entao, da o 2? salto e passa 
da posicao 2 cm para a posicao 3 cm (f j- 
gura 3). Outro esticamento e o compri- 
mento da iita passa de 20 cm para 30 cm, 
isto e, aumentou de 1 ,5 vezes, Portanto, a 
posicao onde esta a pulga, 3 cm, passa a 
ser a posicao 3x1,5 = 4,5 cm (figura 4). 
E mais um salto (figura 5), e assim por 
diante. 

Nesse ponto eu desisti de fazer figu- 
ras e resolvi passar o problema para o meu 
TK82 (muito menos cansativo). 

A seguir esta a listagem do progra- 
ma, E so apertar RUN e esperar a respos- 
ta. 

Oprogramautiliza somente 1 Kbyte. 
As variaveis utilizadas sao: POS (posigao 
da pulga), T (tempo decorrido), COMP 
(comprimento da tira), MULT (multiplica- 
dor para obter a nova posicao da pulga 
apos o esticamento), HORAS, MIN, SEG 
(horas, minutes e segundos). 

Apos aproximadamenteS minutosde 
espera obtem-se a resposta: 3 horas, 26 



minutos e 7 segundos. Portanto, a alterna - 
tiva correta e a C. 

FIGURAS 



4,5 5,5 



30 



414- 



Apos o 1 a Salto 
B 



A 1 



10 



Ap6s esticar 



4- 



B 



A 2 20 

Apos o 2? Salto 



-O- 



B 
i 



A 2 3 20 

Apos esticar 



I 



A 



4,5 



30 



Nota da redacao: recebemos tambem ou- 
tras respostas interessantissimas. Demos 
preference a solucao do EDSON por ser 

completa, sera deixar de ser simples. 

Queremos, porem, citar como mencao 

honrosa as solucoes de: 

Samuel Ejchel (e sua filha Lilian) 

Joao Fernando Coelho Noronha 

L. Pitaluga Jr. 

Ronald Sonksen 

Nelson Armando dos Santos Couteiro 

Guy e Sylvain Harari (nivel protissional) 

Antonio Carlos LeSo 

Silvio Moura Velho 

Luiz Nilton Palladino 

Carlos A.M. Pisciottano 

Mauri zio P. G. G. Niccolai 

Roberto M. Bekman 

Frederico Alpino 

Antonio Tadeu Correa Bueno 

Walter Persson Hildebrandi 

Francisco de Sales G. Candido 





L 


REM PSOBLEMfl Dfl PUl-GH 




3. 


REM EOSON TFIDEU TRMHKR 




ie 


FAST 




2a 


LET PD5=i 




ia 


FOR T=a TO 300-0 




40 


LET COHP=18fT 




^,p 


LET HULT=T.- (T-13 




sa 


LET POS=PtjS*MULT tl 




70 


IF POS>=COHP THEN GOTO 118 




SB 


NEXT T 




9B 


PRINT 'SOLUCRO HRQ CNCONTRR 




DO" 






IBB 


STOP 




Lie 


LET HOBB=INT [T/36B8; 




laa 


LET MTH-INT ( rT-HORPf36B8> / 




'",t>S 






ISO 


LET SEG=T-HORH*36C0-MtN*5ia 




i*» 


PRINT ■50LUCH0: ' ; HORR : ' HO 




RSS 


-. mih; • niMUTOs 




•• ; see; - SEGUNDOS . ■■ 
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A FITA DO MES 



I 





ligura 1 



He 



Claudia poU ]o"/°' 



O&to 



.flan 



^%Z T £&8S2t3i 



te 



*«2S^2r.^^S^ssfe- 



Her) 



***j ^o pelo ^ £ial iz°* ^ Cloud'" 5 * Ljpo */' f 5 membj 6 ° 



corruss 00 



Herman Claudius 
"Um encontro que nao prometia 
grandeemocoesacabou tornando-se uma 
agradavel surpresa. O mestre quando jo- 
ga contra um adversario, que e teorica 
mente ma is fraco, tendea jogar "na tecni- 
ca", evitandograndes complicacies, pois 
o adversario vai errar mesmo. . . O pensa- 
mento criador e deixado de lado e joga-se 
apenas mecamcamente, baseado nos re 
flexos da erudiqao adguinda errr longos 
anos de pratica. Estas partidas normal- 
mente sao macantes. A propria vaidade 
pode ser alimentada, mas nao aquela cu- 
riosidade criadora que transformou voce 
de um perna de pau num mestre. 

O encontro contra o TK82-C parecia 
tadado a mais uma partida mon6tona. Pri- 
meiro, pela velocidade com o que o TK 
responderia (quase que imediatamente 
no nivel 0, e 1 5 segundos no m'vel 1 ); e se- 
qundo, que eu ainda linha la as minhas 
grandes duvidas de que um pequeno caa- 
sete pudesse me fazer frenle. 

A primeira partida, porem, jogada 
em menos de cinco minutes, no ravel 0, j A 
serviu para estimular a minha curiosida- 
de. Para quem joga "ao toque" (variante 
que as vezes se joga no Clube de Xadrez 
Sao Paulo em que nao epermitidopensar: 
cada lance deve ser respondido imediata- 
mente) , "e le" esta va se sai ndo mu ito bem . 
Surpreendente (oi no lance 21 quando o 




TK cometeu um erro muito comum de 
quem joga "ao toque", permitindo-medar 
o mate de uma forma que antes esta va de- 
fendida. Uma reacao "hurnana", portan- 
to, eistoeu naoesperavade um computa- 
dor. 

Na segunda partida, jogada no nivel 
2 ( 15 segundos) foi queoTK me surpreen- 
deu realmente. Joguei alquns lances im- 
precisos e fiquei em posicao inferior! Tive 
de usar de toda a minha criatividade para 
"virar" a partida. No final poderia ter da 
doomateum lance antes (31... Cg3+ em 
vezdodesnecessario31... Dgl + ), masse- 

fato de eu estar procurando urn mate 
mais soiisticado, esteticamente bonito, ja 
demonstra como eu estava envoi vido na 
partida . A emocao de ver um mate bonito 
ofuscou a objetividade do mate mais sim- 
ples. Como se ve, beleza n&o poe mesa. 
TK 82-C vs. Herman Claudius (Nivel 0) 

1 e4 c5 2 Cf3 Cc6 3 d4 cxd4 4 Cxd4 06 
5 Cc3 e5 6 Cxc6 bxc6 

7 Be3 Be7 8 Bc4 0-0 9 0-0 Bb7 10 Dd3 d5 

1 1 exd5 cxd5 12 Ba6 Bxa6 

13Dxa6d4 14Tadl Db6 15 DxbSaxbo 16 

Bxd4 exd4 17 Txd4 Bc5 

18Td3Tfe8 19Tfdl h620a4Cg421 Tld2 

Tel + + . 

TK 82-C vs. Herman Claudius (nivel 1 ) 

1 e4 c5 2 Cf3 Cc6 3 d4 cxd4 4 Cxd4 Cf65 

Cc3eS6Cf5d57Bg5d4 



8 Bxf 6 gid6 9 Cb5 Brf5 1 exf5 a6 1 1 Ca3 

Bxa3 12 bxa3Da5 + 

13 Dd2 Dxa3 14 Bd3 Tg8 15 0-0 0-0-0 16 

Dh6 Dd6 17 Bc4 Td7 18 Dxh7 Df8 

19 Dh4 Ce7 20 DxJ6 Tc7 21 BxF7 Rb8 22 

De6Tg523TablTxf5 

24 Bg6 Tf6 25 Dxe5 Cxg6 26 Dxd4 Cf4 27 

De4 Te7 28 Dc4 Ce2 + 29 Rhl TxJ2 

30 Txf2 Dxl2 31 Dxa6 Dgl + 32 Txgl 

Cg3 + 33 hxg3 Th7 + 34 Dh6 Txh6 + + , 

A seguir fiz uma experience a. Colo- 
quei a seguinte posicao na mem6ria do 
computador: brancas — Rhl, De4, Ce8, 
Ph2; pretas - Ra8, Dg4, Tg8, Th8, Pa7, 
Pb7(fig, 1). Disss que eujogariade pretas 
e mandei que fizesse o lance, Nos niveis 3 
e4oTKHmitouseadaro xeque perpetuo 
com 1 CI7+ Rg8 2Ce8+ Rh8 3Cf7 + , 
etc. , mas no nivel 5 em menos de cinco mi- 
nutos achou a solucao: 1 Cf7+ Rg8 2 
Ch6+!Rh8 3Dg8 + !!Txg84Cl7+ +, 

Foi uma experiencia divertida!" 

Nota da redacto; O progroma TK XA- 
DREZ II e um programa protegido que 
nao pode ser dupiicado por caminhoa 
normals, Conseqiientemente a fita deve 
ser armazenada com cuidado, ao abrigo 
de fortes eampos magnetioos, Nas instru- 
5oes, existe um erro de imprensa; para 
1 impar total mente o tabuleiro devemos di- 
gitar X0000 e nao X000. 



MICHOHOBBT 6 



Program as do Ales 



MIKI-INUR50R 

©■REM C-MICROMEGR 1963 

1000 SLOW 

1005 RRND 

1010 LET K=2 

1015 LET S=0 

1020 LET P=S 

1025 LET H = INT (RND*1S) 

103O LET fi*="^rV 

1035 FOR U = INT <RND*15) TO IS 

104© CLS 

104-5 PRINT RT U , H -1; fl£; ST 28.P-1 



1050 IF fiB5 iH> -P RWD U?S RND IN 

KEY$="0" THEM GOTO 11S0 

1055 IF INKEYt= ,1 5" THEN LET P =F> - 

(P>K) 

1060 IF INKEY*="B" THEN LET P =P + 

(P < IS) 

1065 LET H=H+INT IRND*3I -1 

1070 LET H=H+(HCK)-{H>15) 

1075 NEXT V 

1080 IF RBS IH-P) >2 THEN GOTO 10 

£5 

10S5 PRINT RT 5 ..5; "CONTPGEH = " : 5 

1030 pftusE iae 

1095 RUN 

1100 FOR N=19 TO U 5TEP -1 

1105 PRINT RT N,P;".";ftT ae.P;"* 

1 1 10 NEXT N 

1115 LET 5=5+10 

1130 PRINT RT UjH-K. " ;X+X<" 

1125 GOTO 1025 

113© STOP 



"MINI-INUfiSaS" 
"MINI-INUftSOR" 

"5E O INUfiSOR POUSRR 
UEICULO.. O JQGO TERM 



114-0 SRUE 

114-5 PRINT 

1150 PRINT 

1155 PRINT 

SOBRE 5EU 

INR- " 

1160 PRINT 

1165 PRINT 

ERDR" 

1170 PRINT "S = HOUIMENTQ P/ DIR 

eiTfi" 

1175 PRINT 
URSOR 

ONR NR ME5MR 



'5 = MOUIHENTO P/ESBU 



•0 = 



VOCE RTIRR NO IN 
O TIRO 50» FUNDI 
! JERTICRL" 

1180 PRINT "RPERTE NEW LINE PRRR 
CONTINURR" 

11S5 INPUT G$ 

1190 GOTO 1000 



Mini - Invasor 

Este proqrama pode ser rodado utili- 
zandoapenas 1 K de RAM! Consiste numa 
versao extremamente simplificada dos 
classicos joguinhos de "Invasores" que 
descem do ceu. 

Urn invasor desce e tenta pousar so- 
bre seu veiculo que esta nochao. Se con- 
sequir, o jogo termina. Voce pode deslo- 
car o veiculo para a esquerda (Tecla 5) ou 
paraadireita(TeclaB). Pode tambem ten - 
tar destruir o invasor atirando nele (Tec la 
0). O tiro, porem , so saira se o invasor e o 
veiculo estiverem na raesraa vertical. 

Dispandodeapenas 1 KdeRAM, vo- 
cedigitaraapenasas linha de 1000a 1 125. 

Se o seu computador nSo tiver 
"SLOW" voce devera acrescentar as li- 
nhas. 



104-6 PRUSE 3© 
1106 PRUSE 30 
1131 PAUSE 30 



A tela 1 icara piscando, mas dara para 

jogar assim mesmo. 

Dispondo de ate 2 K , d i q i te o proqra ■ 
ma inteiro (ate a linha 1 190). Neste caso, 
para salvar a proqrama em iita, ao inves 
de diqitar: 

SAVE"MINI-INVASOR" 
Voce podera usar a instrucSo: 
GOTO 1140 

Assim faaendo quando voce reear- 
reqar o que colocou na fita, o computa- 
dor, apos receber o proqrama , comecara 
a executar o que vera na linha seguinte a - 
mdicada, Neste caso, a linha a ser execu- 
tada sera a 1 14S (veia maiores detalbesso- 
bre esta tecnica na secao "Dicas"). 
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Programas 4* Ales 

ESP: 

Extra Sensory 
Perception 

Ha alguns anos atras um livro eacrito 
por dois franceses, um dos quais fisico nu- 
clear, despeiiou um gxande interesse pe- 
lo estudodospoderesextra-sensoriais. Es- 
te livro "O Despertar dos Magicos" 
tornou-se rapidamente um "best-seller" 
proporcionando um ganho espetacular a 
seus outores. Nao vamos agora discutir o 
conteudo do livro, mas sim seus efeitos: fa- 
rejando a possibilidade de lucros fartos e 
imediatos, uma poroSo de editores e auto- 
res inundou o mercado com livros e revis- 
tas "pseudo-cienti'ficas" onde se discutem 
lemas indubitavelmente fascinantes: 
UFOs, piramides, deusesastronautas, po- 
deres parapsicologicos, etc. 

Como a credulidade humana CaO' 
contrario da inteligencia) nao tern limites, 
prontamente o mercado absorveu tudo. 
Chegou-se inclusive a criar uma especie 
de "MAFIA PARAPSICOLQGICA" na 
qual um autor dava apoio e credibilidade 
a outro, criando uma verdadeira rede bi- 
bliograf ica aparentemente seria mas que, 
abviamente, n3o resists a uma analise cri- 
tica mats aproiundada. 

Este proliierar de charlataes (lem- 
bram Uri Geller?) fez com que os verda- 
dejros cientistas, assustados.se afastassem 
de investtgacoes nessa area, pelo temor 
de ver seu tiome envolvido nessa mafia. 
Porem, rejeitar toda essa parafemalia cir- 
cense sem uma analise critica e uma atitu- 
de tao anti-cientifica quanto aceita-la sem 
ressalvas. 

Existe telepatia? Ate hoje nenhum es 
tudo sGrio, eientifico, em eondicoes con- 
troladas e realizado por pessoas isentas, 
conseguiu demonstrar que sim! 

Toda "demonstracao" da existencia 
de telepatia esta falseada pel a ma-fe, 
charlataniceou, nominimo, ingenuidade 
na interpretacaa dos dados. 

Isto demonstra que a telepatia nao 
existe? De forma alguma! Isto demonstra 
apenas a necessidade de estudarmos estes 
fenomenos de maneira adequada. 

O programs ESP, por n6s adaptado 
de uma publicac-ao francesa (Daniel Ma- 
vrakis), e uma primeira tentaliva de se fa- 
zer algo neste sentido. O leitor podera tes- 
tar com o auxilio de alguem mtiito impar- 
cial (seu TK) se ele ou algurri familiar pos- 
suem dons parapsicoloqicos. 

O programa qera uma serie de nu- 
meros aleatorios que o sujeito, ao ser tes- 
tado, tentara adivinhar. 

Se ele optar por CLAfUVIDENCIA, 
estara testando sua habilidade em adivi- 
nhar um numero ja gerado, Se optar por 
PREMONIQAO, ele tentara adivinharum 
numero ainda a ser gerado num futuro 
que varia de 1 a 5 passos. 



OHREM TESTE PRRRPSICOLOGICQ 




C- 


HICRDMEGfl 1983 


1000 


Dlrl XI 


5^ 


1010 


FOR 1 = 


1 TO 5 


1020 


LET X (!) =0 


1030 


NEXT 3 




104-0 


LET U3 


= 


1050 


LEX X = 


.0 


1060 


LET S = 


& 


1070 


CLS 




1030 


PRINT 


TRB 6; "TESTE PRRRP5IC 


QLOGICO" 
1090 PRINT 




TRB 3, ' ?^SIii»t=i«afcfcfe™gi 


HH" 






1100 


PRINT 




iii0 


PRINT 


"DIGITE ft LETRft Dft RL 


TERNflTIUH 


ESCOLHIDft E PRESSION 


E NEU LINE' 




1130 


PRINT 




1130 


PRINT 


"R. . . . CLRRIUIDENCIfl" 


1140 


PRINT 


"B. . . .PREMONICRO" 


1150 


PRINT 


*'C. . . . ESTUDQ CONJUNTO 


DE R E B" 




1160 


PRINT 


"D CRLCULOS ESTflTI 


STICOb DE 


RESULTflDOij JflP 


0BTID05 " 




1170 


PRINT 




1180 


INPUT 


ft* 


1190 


IF R*W'ft" ftND fi*«:-*'B" AND 


ft* < >" 


'C" BND R$<>"D" THEN GOTO 10 


70 






1500 


PRINT 


"B ESCOLHR DE ";ft*;" 


E5TR" 


CONF IRHRDR7S IM -5 " , "NflO =N" 


laie 


INPUT 


B* 


1220 


IF B* = 


="N" THEN GOTO 1070 


1230 


CLS 




12*0 


PRINT 


RT 12,0i "ESCOLHR : " ; R 


1250 


PRINT 


RT 13, 0; "OURNTOS TEST 


ES ? 




*' 


12&0 


INPUT 


N 


1270 


PRINT 


RT 13,0, * NUMERO E5COL 


HIDO 


DE TESTES = ";N 


1280 


IF N>: 


=50 THEN GOTO 13S0 


1290 
1300 


PRINT 


"RCONSELHRMOS 50 TEoT 


PRINT 


"PRRft TER SIGNIFICRDO 


ESTfiTTISTICOfl RMOSTRfi DEVE TER , N 


O MINIHO, 2STESTES" 


131S 


PRINT 


"DESEJR HRNTER ESTE N 


UMERO? 


(S OU N) " 


1320 


INPUT 


B* 


1330 


IF E$ 


= *S" THEN LET 5 = 1 


134-0 


IF S4 


*1 THEN GOTO 1230 


13S0 


IF ft* 


= "£>" THEN GOTO 1430 


1360 


DIM ECN) 


1370 


DIM ft(N+5) 


1380 


CLS 


. 


1330 


PRINT 


"OS ITENS DIGITRDOS D 


EUEM 


SER 


NUMEROS INTEIROS POS 


IT I U OS DE 


R S INCLU5IUE" 


1400 


PRUSE 


600 


1410 


CLb 




1420 


PRINT 


"PODE COMECRR" , , "DIGI 


TRNDO O HUMERQ"/'E NEU LIME" 


14-30 


PRUSE 


300 


14-40 


CLS 




1450 


RRND 




1460 


eoro 


1620 


1470 


CLS 




1480 


PRINT 


"NUMERO DE 3UCE5SOS : 



Para que a experiencia tenha signifi- 
cagfio estatistica e conveniente esoolher 
pelo menos 25 testes (o aconselhado sac 
50). Opr6prio programa se encarrega de 
corrigir o calculo estattstico quando o nu- 
mero £ pequeno, 

Pode-se optar, ainda, por um simples 
estudo estatfstico de uma experiencia ja 
realizada, 

Neste caso o seu TK vai fornecer o va- 
lor de \i (K.HI QUADRADO), grandeza 



estatistica que correlaciona o numero de 
sucessos realmente obtidos com o numero 
de sucessos previstos teoricamente pelo 
calculo das probabilidades. 

Digamos, por exemplo, que voce jo- 
ga um dado 70 vezes, tentando obter o nu- 
mero 3, e que voce consegue obte-lo 15 
vezes. 

Quando o programa perguntar (na 
opgao D) "Quantos testes?", devemos di- 
gitar 70; "Quantos sucessos?" digitamos 
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14-90 

1500 
1510 
R DE 

1) 
15.20 
1530 
5tj0 
154-0 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1633 
1S30 
164-0 
1658 

1668 

13&5 
1670 
1680 



INPUT X 

PRINT X 

PRINT "PROBflBILIDRDE TEORIC 

SUCESSODE CRDfl TESTE (DE A 



INPUT PI 
IF PK0 OR 



PIjI THEN GOTO 1 



GOTO 1590 

PRINT "yflLOR NRO flCEXTO" 

PAUSE 130 

CLS 

GOTO 1520 

PRINT PI 

LET P2=1-P1 

GOTO 1310 

CLS 

LEX P1 = .I 

LET P2=.9 

FOR 1=1 TO N 

LET fitI)=INT H'RND#103 

TESTES' 



5020 IF Sol THEN GOTO 2050 
£030 LET KHI2=CABS CABS (XlH)-f. 
1*N) ) -.5)) iJ£/f.liNJ+(flBS CABS C 
(N-X(H))-(.9*N))-.5)) #*2y t .9tN.i 
£04-0 GOTO 2060 

2050 LET KHI2=(RBS fX <H) - ( . 1*NJ ) 
) **2/ ( . 1*NJ + (ABS ( (N-X CMJ J - f . 9*N 
t ) ) **2y ( .9*N) 
£060 GOSUB 2110 
2070 PAUSE 600 
2080 CLS 
2090 NEXT M 
2100 GOTO 234.0 
2110 IF KHI2<10, 

2120 PRINT "KHI 



1788 
1710 
1720 
1730 
174-0 
174-S 
1750 
1760 
1770 
1780 
1790 
1300 
1310 
1320 
1330 
184.0 
1850 
1360 



E (I) >9 THEN GO 



nro RCErro' 



N + 5 
tRND*10J 



GOTO 134-0 



PRINT RT 0, 0;I,N; 

INPUT ECU 

IF' E ( I) <0 OR 
TO 1700 
1690 GOTO 174-0 

PRINT "URL OR 

PAUSE 130 

CLS 

GOTO 1670 

NEXT I 

CLS 

FOR I=N + 1 TO 

LET R (I) = INT 

NEXT I 

IF A*="B" THEN 

FOR U = l TO N 

IF Ft(«J)=E(UJ THEN 

NEXT J 

GOTO 1330 

IF A*="A" THEN 

FOR L=l TO 5 

FOR K=l TO N 

IF RtK+LJ =E(K) 

> =X (L) +1 
1870 NEXT K 
1330 NEXT L 

1390 IF flt="B" THEN GOTO 2000 
J.90O PRINT "CLARIUIDENCIA: "; X; " 
ACERTOS EH ",Ni" TESTES" 
1910 IF S<>1 THEN GOTO 194-0 
1920 LET KHI2=tflBS (ASS CX-t"Pl*N 

> ) - .5) J **£•' (P1*N) + CR8S (RBS t l"N- 
X) - (P2*N) ) -.5) 3 **2/ (P2*N) 

1930 GOTO 1950 

194-0 LET KHI£=CRB3 ( (X- (P1*N) ) ) * 

42/ (P1*N) 4- (RBS f (N-XJ - CP2*N.l ) > ** 

3./ (PSiNJ J 

1950 GOSUB 2110 

PAUSE 683 

CLS 

IF A* = "D" THEN GOTO 24.00 

IF A*="A" THEN GOTO £34-0 

FOR M=l TO 5 

PRINT ■■PREMONICRO COM ";H;" 
"DE DEFASAGEH . " , X fHJ ; 
EH 



LET X=X+1 



GOTO 1900 



THEN LET XiL 



1960 
197© 
1930 
1990 

2000 

010 



TESTES ". 

■ RCERTOS 



,NJ 



TESTES" 



S3 THEN GOTO £16 



QUADRADO =";KHI2 
."TESTE EXTREMAHENTE POSITIUO ", 
"P<0,001 " r , "EXISTENCIfl DE FACUL 
DADES PSI" 
130 PRINT 

LET Ul=l 

RETURN 

IF KHI2<6.6* THEN GOTO 2210 

PRINT "KHI OUADRADO =",KHI£ 
, "TESTE PQ5ITIUO", , "P<0,01" , , "EX 
I3TENCIA PROUAUEL DE " , "FACULDAD 
ES PSI" 
2180 PRINT 

LET Ul=l 

RETURN 

IF KHI2<3.84 THEN GOTO £260 

PRINT "KHI OUADRADO =';KHI2 
, "TESTE POSITIUO" , , "P < 5 ".'■ *' , , "EX 
ISTENCIR POSSIUEL DE" , "FACULDADE 
S PSI" 
£230 PRINT 
£24.0 LET Ul = l 
2250 RETURN 

2260 IF KHI2<2.71 THEN GOTO 2310 
2270 PRINT "KHI OUADRADO =" ; KHI2 
TESTE FRACAHENTE POSITIUO "," P < 



214-0 
2150 
2160 
2170 



2190 
2200 
2210 

2220 



EXISTRH" 



"FACUL 



10 m / m " , , "TflLUEZ 
DADES PSI" 
2280 PRINT 
£29© LET Ul=l 
2300 RETURN 

2310 PRINT "KHI QUADRADO =";KHI2 
, "TESTE NEGATIUO" , , "P>90 ■ •■ " , , "N 
AO FORAH DETECT AD AS" > "FACULDADES 

PSI" 
2320 PRINT 
2330 RETURN 

234-0 IF Ul = l THEN PRINT 
eOM RESULTRDOjE" ACONSE 
REFRZER O TESTE" 
2350 IF Ulol THEN STOP 
2360 PRINT "O COHPUTADOR REPETIR 
«* O TESTE" , "DENTRO DE IN5TANTES" 
600 



1 DADO O 
LHAUEL 



2370 
2380 
2390 
£400 
24-10 



PAUSE 

CLS 

RUN 

STOP 

SAUE 



TESTE PRRAPSICOLOGICS 



24,20 RUN 
24-30 STOP 



15. A pergunta "Qual a probabilidade 
teorica de sucesso?" Deve, nestecaso, ser 
respond ida oomo sendo 1/6 = 0. 1667, 
poisha 1 chanceem6desairumcertonu- 
mero ao ser jcgado o dado. 

O seu TK responds ra entao que o va- 
lor de KHI QUADRADO e 1 .141 , que o 
teste loi negati vo (com uma probabilidade 
de certeza de 90%) e que portanto, nao fo- 
ram detectadas laculdades PSI (parapsi- 
cologicas). 

Digamos, agora , que voce joqa uma 
moeda para cima e tenta advinhar se d^ 
eara ou coroa. Numa serie de 50 testes vo- 
ce acerta 42 vezes. No seu TK., entao, voce 
entrara (na opcao D) com ©stes dados, 



lembrando que a probabilidade teorica 
de sucesso e 0.5 (pais ha 1 chance em 2 de 
voceacertar). 

O seu TK iornecera um valor de KHI 
QUADRADO bem elevado (23. 12) e es- 
crevera uma mensaejem dando o teste co- 
mo positivo. 

Antes que voce inicie suas prdprias 
experiencias, queremos adjantar que ne- 
nhum de nos, aqui da redagao, apresenta 
qualquer tipo de faculdade PSI. Isto nos 
frustrou consideravelmente {afinal, quern 
n3o gostaria de se sentir cercado por uma 
misteriosa aura de magia?), mas ao mes- 
mo tempo despertou nossa curiosidade. 

Sera que entre os milhares de usua- 



rios do TK nao havera alguem realmente 
dotadodessas lacu Idades? Se hou ver, por 
favor, escreva-nos dando os resultados, 
pois qosta riamos de test a ■ lo sob condigoes 
control adas. 

Para os outros nao dotados mas cu- 
rtoaos, aoonselhamos a leitura de um dos 
raros cientistas (de verdade! ) quese arris- 
cou a contestar a enxurrada de imbecili- 
dades que assola o mundo: CARL SA- 
GAN, 

E extremamente instrutivo ler-se "O 
Romance da Ciencia", editado no Brasil 
pe]a Francisco Alves, emconlraposigao a 
milhares deobrasescritas em sentidocon- 
trario. 
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Program as do Atis 



Renumerando 



Este programs e o primeiro de uma 
serie de programas espeoiais que preten- 
demos oferecer aos rtossos assinantes, 

Ele & do tipo que resolvemos denomi- 
nar "programa- ferramenta". Um.progra- 
ma desta natureza tern como final idade 
auxiliar o programador e simpliiicar sua 
tarefa. 

Ao se digitar um programa novo pela 
primeira vez devemos tomar o cuidado de 
deixar posic&es vazias entre o endereco 
de urea linha e o da hnha seguinte. (Al- 
guns programadores tem por habito nu- 
merar, por exempio, de 10 em 10.) Isto e 
uma atitude pruderrte ditada pela Lei de 
Murphy: "Se algo tem chance de dar erra- 
do, certamente dara errado". Ao se rodar 
urn programa recem-digitado, fatalmente 
desoobre-se uma porcSO de "grilos", cuja 
eliminagao exige a insercao de novas li- 
nhas. Apes varias tentativas, o programa 
esta pronto mas com uma numeracao que 
fere o sense estetico da maioria das pes- 
soas. Alem disso, um bom programador 
envergonha-se desta estranha numera- 
cao, pois sabe que outro pode deduzir os 
erros inicials que ele cometeu pela nume- 
racao dos "remendos", 

O programa RENUMERANDO visa 
eliminar estes inconvenientes. Inicial- 
mente ele deve ser digitado e salvo em fi- 
ta. 

Antes de se digitar um nova progra- 
ma ele deve ser carregado no computa- 
dor. Na linha 9958 e conveniente colocar 
um monte de espaoos vazios depois do 8- 
tuio RENUMERANDO. Isto produz um 
hiato entre a rotina \& inserida e o progra 
ma que voce esta digitando e ajuda a se- 
paracao visual na listagem da tela. 

Voce deve ter o cuidado de digitar 
todos os enderecos indicodos por ura 
GOTO ou GOSUB com quatro digitos. 
Por exempio, se no rascunho de seu pro- 
grama voce tem uma linha "assim 

312 GOTO 418 
ela deve ser digitada assim 

312 GOTO 0418 
Uma vez digitado o rascunho do progra- 
ma, basta comandar 

GOTO 9959 
que, apos um certo tempo (30 segundos 
para um programa de 1 K) , seu programa 
reaparecera numerado a partir da linha 
1000 de 10 em 10. 

Se algum GOTOou GOSUBestiver 
fora das normas ( 4 digitos) , a roti na para ra 
e sua linha 3972 indicard, na mensagem, 
em que linha do rascunho isto ocorreu. 

A linha em questao devera entao ser 
cornqida e novamente a renumeracao de- 
vera ser reiniciada por um 
GOTO 9959 

Apos um certo tempo de pratica, o 
programador poderi dispensar a mensa- 
gem e substituir a linha 9972 por 
9972 LIST L 

Neste caso, aodetectar erro, a rotina 



9958 REM RENUHERRNDO 

9959 LET T* = "" 

9968 LET Xl = 16589 

9961 let x2=xi+2 

9962 LET L=256*PEEK Xl+PEEK (Xit 
1) 

99P3 IF D=9959 THEN GOTO 9976 

99fc>4 LET C=PEEK X2+a56*PEEK (X2 + 



*X£+2) =£34- THEN GOT 



1) 

99S5 IF PEEK 

O 9969 

9966 FOR I=X2+2 TO X2+C 

9967 IF PEEK 1=236 OR PEEK 1=237 
THEN GOSUB 9971 

9Q63 NEXT I 

9969 LET Xl=X2+C+2 

9970 GOTO 9961 

9971 IE PEEK (1+5) =126 THEN GOTO 
9974- 

9972 PRINT "COMftNDO FORO DRS NOR 
HRS NR LINHfl . "; L 

9973 STOP 

9974- LET T*=TJ + STR* I+CHR* PEEK 
(1 + 1.1 +CHR* PEEK H+2) +CHR* PEEK 
(1+3) +CHRJ PEEK (1+4) 

9975 RETURN 

9976 LET 6 = 1SM 

9977 LET XI =16509 
9973 LET X2=Xl+2 

9979 LET L=256*PEEK Xl+PEEK iXl+ 

1) 

9960 IF L>=9959 THEN STOP 

99SI LET C=PEEK X2+256*PEEK (X2+ 

i) 

9982 FOR 1=1 TO LEN T* STEP 9 

9983 IF URL T*(I+5 TO I+S) =L THE 
N GOSUB 9990 

9934 NEXT I 

9935 POKE XI, INT 0^2561 

9966 POKE (Xl+1) ,B-256*INT tB/25 
G) 

9987 LET B=B+10 

9988 LET Xl=X2+C+2 
9939 GOTO 9973 

9990 FOR J = l TO d. 

9991 POKE (URL T* ( I TO IU) +J) ,C 
ODE (STR* B) (U) 

9992 NEXT J 

9993 LET BYTE 1 = 123 + INT (LN B/LN 
2+1) 

9994 LET BYTE2=B*6553ey (2** (BYTE 
1-123) ) 

9995 LET M=URL T$fl TO 1+4) 

9996 POKE M+S,BYTE1 

9997 POKE M+7,INT iBYTE£/256) -12 
S 

999S POKE M+S j BYTES -256 a INT (BYT 

E2/256) 

9999 RETURN 



ja colocara o cursor de listagem ( |^ > na li- 
nha a ser corrigida, com economia de 
tempo. 

Se o programa ti ver algum GOTO ou 
GOSUB obrigatoriamente fora de norma, 
por exempio 

312 GOTO (x + 3) 
havera uma indesejada interrupcao da ro- 
tina. Para driblar sua vigilancia podemos 
usar a linha 9965 que pula os REMs. Neste 
caso inserimos um REM no rascunho: 

312 REM GOTO (x + 3) 
gue devera ser oportunamente apagado 
ap6s a renumeragao. 

Se quisermos alterar a numeracao da 
linha inicial do nosso programs 
(mantendo-a porem com 4 digitos} pode- 
mos mudar a linha 

9976 LET B = 1000 
usando valores de B maiores que 1000. 



Podemos tambem alterar a linha 

9987 LET B = B+10 
alterando com isto o incremento. Queren- 
do esnobar em cima de um programa se- 
guramenie pronto e retocado, podemos 
numerar de 1 em 1 : 

9987 LET B = B+l 

Alem disso, e conveniente eertificar- 
se de que o oomputador esteja em FAST 
antes de se iniciar a rotina. 

A unica parte realmente en joada dis- 
so tudo e iinalmente ter de apagar as li- 
nhas da rotina uma vez terminada a tarefa. 
Se o programa, porem, nao est i ver abso- 
lutamente perfeito (lembre-se a Lei de 
Murphy! ), e nao houver limitacao de me- 
m6ria, e conveniente deixar esta rotina 
pendurada no fim do seu programa ao 
salva-loemfita. Afinaldecontas, nuncase 
sabe...! , 
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□icas 

O u Auto- Start" 



Se voce ja usou fitas cle programas ja 
prontos deve ter notado que ao serem car- 
regadas, algumas delas ao inves de apre- 
sentarem a tela vazia com o codigo "8/0", 
ja iniciam o programs imprimindoalgum 
titulo ou alguma instrugao inicial. 

O truque para se tazer ista e extrema- 
mente simples: basta p6r o coraando "SA- 
VE" no proprio programa. Vamos exem 
plihcar: digamos que voce tenha o se- 
guinte programa: 





18 
20 
M ' 
3B 

4-e 

SO 
65 


'.[ ou 

PRINT 
PRINT 


"O PROGRRMR COHECOU" 
"ESTfl Eli H SEBUNDfl OF) 


PRINT 

INPUT 
CL5 
PRINT 
STOP 


•HURL SEU HOME ■»■' 
N* 

N* 



Para guarda-lo em fita, normalmen- 
te, voce digitaria: 
SAVE "DICA" 

e 5 segundos apos o NEW LINE , o progra - 
ma comeca a ser enviado para a fita K-7. 

Ao recarregar o programa voce tera 
tela vazia e codigo 070. (Experiments fa- 
zer isto: nao precisa user fita de verdade 
pois ao terminar a execucao do "SAVE" a 
tela j^ raostra como seria o fim do 
"LOAD".) 
Acrescente agora as linhas: 



70BS«UE "DlCfi 1 
SB RUN 



Para guardar este novo programa de 
fita, digite: 



GOTO 70 



e 5 segundos apos o NEW LINE, o progra- 
ma comeca a ser enviado para a fita. 

Quando este programa e carregado, 
Sodas as instrugoes apfjs o: 



70 SRUE "DlCfl" 



sao executadas. No caso, a instrucao e 



80 RUN 



que fsz o programa correr. Note que na 
tela ja aparecem os "PRINTs" das linhas 
10, 20 e 30 e o computador ja esta aguar- 
dando o INPUT da linha 40. 



Digite seu nome e NEW LINE. 
O programa para na linha 65. Aperte 
NEW LINE para lista-to. 



5 slow 

10 PRINT "O PROGRRHR COtltCOU" 

S0 PRINT "ESTH EH H SEGUNDfl OR 
OEM" 

30 PRINT "OUflL SEU NOME 1" 

4.0 INPUT N* 

SO CLS 

SO PRINT hi* 

BS STOP 

70 5HUE --DlcS " 

SO RUN 



Note, na linha 70, que o ultimo carac- 
tere do codigo de SAVE ficou em video 
re verso. Nao se preocupe, pois isto e nor- 
mal. 
Mude agora a linha 80 para: 



30 GOTO 20 

e SAVE novamente o programa digitando 

GOTO 70 



o programa agora se imcia na linha 20 . Di ■ 
gite novamente seu nome e mude a linha 
80 para: 



80 GOTO 60 

Novamente digite: 
GOTO 70 



para salvar a programa. 

O programa agora inicia na linha 60: 
seu nome aparece na tela, pois e um dado 
que foi salvo junto com a fita. 

Esta tecnica e exatamente util quan- 
do o programa armazenado estd "RE- 
CHEADO" de dados que podem ser can- 
celados por um inoportuno "RUN". 

Podemos entao tazer programas "A 
PROVA DE DINORAS", usando a Instru- 
cao "SAVE" no proprio programs e 
fazendo-a seguir de uma instrugao que fa- 
ca o programs comecar numa regiflo on- 
de os dados nao possam mais ser destrui- 











LORD! 

agora VOCE pode: 

— Carregar o seu micro SEM ajustes 
criticos de volume do gravador. 

— Usar aquele programa que nao "entrou" 
em outras ocasices. 

— Carregar programas gravados por 
outros gravadores. 

— Gravar "direto" de outro gravador, 
e a gravaplio ficar perfeita. 






USE TIG-LOADER! 




instale TIG-LOADER 

entre o micro e o gravador, e pronto! 

F&CIL DE USAR, EFICIENTE... E BARATO. 

Pega informapSes para a 

CAIXA POSTAL 18948 

Sao Paulo — Capital. 

Atendemoa todo o Brasil. 
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NOVIDADES 



A Micromega Publicag5es e Material 
Didatico provou sua versatilidade e lide- 
ranga quando do langamento da Re vista 
dos Usuarios do TK, que estd sendo ele- 
mento de estimulo e apoio aos seus afic- 
cionados. E a Micromeqa promete inere- 
mentar o setor com seis langamentos na 
area editorial corn os livros: BASIC TK 
elementar; BASIC TK avangado; Lingua 
gem de maquina para o TK (principals 



instrugoes e primeiras aplicagoes); Lin- 
guagem de maquina para o TK (aplica- 
goes avangadas); Colegao de programas 
vol . 1 ; e Curso de jogos em Basic TK para 
adolescentes. 

Neste empreendimento a Micromega 
lera o apoio da Edilora Moderna que atua 
ra como eo-editora das publicagoes, que 
deverac estar no mercado no mes de ju- 
nho. 



Outra novidade de tnteresse e que a 
conhecida agencia Avant -Garde, distri- 
buidora de livros, revistas e jornais, situa- 
daa Av. BrigadeiroFariaLima, 1237, loja 
7, Sao Paulo, tel,: 210-9020, agora estara 
vendendo tambem livros e revistas de 
computagac. 



t£ 



micromega 



EDTTORA 

MODERNA 



CURSO DE BASIC TK 



Afesfe numero iniciamos um curso de 
Basic TK vollodo inicialmenie para os 
principiantes. A estes aconse/hamos 
acompanhar passo opasso com o compu- 
tador ligado (ndo hd nec&ssidade d& bx- 
pansao), E aconselha</el tambem co/ec/o- 
nar a Revista para poder apraveitar urna 
serie de coisas que agora voce ainda nao 
pode acompanhar, mas que fuluramente 
serdo muito ufeis. 
Pier/uigi Piazzi — Flavio Rossini 

O que e um computador? 

Um computador e uma serie de circuitos 
eletromcos capazes de interpietar e exe- 
cutar ordens recebidas dos seres huma 
nos para realizar operagoes maternaticas 
e manusear informacOes, podendo inclu- 
sive controlar outros aparelhos. 
O computador se caracteriza por: 

a) serRETARDADO 

b) ter MUITA MEMOR1 A, sendo incapaz 
de ESQUECER alguma coisa 

c) ser MUITO RAP1DO 

d) aerPRECISO 

e) nao ERRAR nunca 

f) ser EXTREMAMENTE OBEDIENTE, 
executando ordens sem qualquer re- 
damagao! 

Os compu tadores, analogamente aos se- 
res hurnanos, tern um cerebro (reaponsa- 
vel pelo controle e calculo) e dispositivo 
para so comunicar com o mundo externo, 
ou seja, receber iniormagoes e enviar in- 
formacaoes. No caso do TK, este seria o 



Computador 
esquema basico; 


TV 
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Memdna 




Mi croprocesscido r 




GrdVddor 
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Fiquw — 1 


Tecladn 







esquema basico (fig. 1). 
O microprocessador e o cerebro, usando 
a memoria para armazenar dados e inlor- 
magoes, o teclado para receber iniorma- 
goes do ser humano e a TV ou impressora 
para enviar infer macoes. Como o compu- 
tador so e eapaz de reter as informagoes 
enquanto estiver "acordado" (ligado), ao 
"adormecer" (eer desligado) ele esquece 
TUDO o que havia sido colocado na me- 
m6ria! Portanto, utiliza-se um gravador 
K-7 para gravar estas inlormagoes que 
eventualmente serao utilizadas de novo 
no futuro. 

Note que, de todas as caracteristicas do 
computador, a mais indesejavel e a pri- 
meira, ou seja, o fata dele ser RETARDA- 



DO! E e justamente isto que devemos [er 
sempre em menle: o computador e rapi- 
do, obediente e precise mas NAO tern in- 
teligencia; apenas se limita a execu tar or- 
dens EXATAMENTE como foram formu- 
ladas. 

Para poder acompanhar este curso e con- 
veniente comegar ligando o TK, A fonte 
de alimentagao deve ser ligada a tomada, 
o interruptor na posicao OFF (desiigado) 
e o plug macho no terminal C. C. do com- 
putador. 

Na saida RF (video) ligar o cabo de ante- 
na. Liqar a outra extremidade do cabo da 
antena nos 2 terminals da antena do televi- 
sor (pode ser branoo e preto) e sintoniaa- 
lo no canal 2 (com volume no minima). 
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Colocando a chave (ON-OFF) da fontede 
alimentacao na posigao ON, no canto in- 
ferior da tela deve aparecer urn quadradi- 
nho com um K em seu inferior: 

Figura 2 




Ele e chamado de cursor e sera muito util 
para nos aj udar a trabalhar com o compu- 
fador. Este E] e abreviacao de KEY 
WORD, ou seja, palavra-chave. As pala- 
vras-chaves sao asque aparecem ACIMA 
de cada tecla; assim, se o cursor estiver 
emQQ , ao apertar qua 1 quer tecla qu e tenha 
uma palavra-chave acima da mesma, esta 
palavra aparecera no canto inferior da te- 



la 
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palavara-crha vs 
(keyword) 



A Instrucao PRINT 

Vamos comajar a dar ordens ao computa^ 
dor: aperte a tecla da letra P; voce ird ob- 
ter PRINT na tela, seguido do cursor que 
agora mudou paraERque e a abreviacao 
de LETTER, ou seja, letra), indicandoque 
o computador nSo mais espera uma pala 1 
vra-chave, mas sim uma letra ou numero; 
expenmente digitar o numero 57. O que 
voce esta ordenando? Ora, PRINT siqnif i- 
ca ESCREVA, portanto, voce est a dizen- 
do ao computador: "Escreva o n D 57"; ele 
executara a sua ordem! Basta iniorma-lo 
de que a ordem esta completa e isto pode 
ser ieito pressionando a tecla NEW LINE. 
Verif ique o que aparece no canto superior 
esquerdo! No canto inferior aparece a se- 
guinte0/0; naoseimportecomistoporen- 
quanta; apenas saiba que o cursorQ2esta 
"escondido" detras destes numeros 



Figura 4 




De fato, pressione P e voce obterf nova- 

mente PRINTtLkfaga entao com que ele 
ESCREVA o resultado de uma conta de 
somar, por exemplo: 



PRINT "7 + 



Note que o caractere " +■ " esta em verrrte- 
lho na tecla da letra K; para fazer com que 
o " + " apareca na tela, basta apertar a te- 



cla SHIFT simultaneamente com a tecla 

K ! (O mesmo e valido para todos os carac- 

teres em vermelho no TK 82 ou em amare- 

lonoTK85). 

Figura 5 ^ pakvr^have (0) 




Se voce esqueceu disto, voc§ ira obter: 



PRINT "7K3S 



que nflo faz nenhum sentido! Teremos que 
apagar a letra K! O computador e capaz 
de apagar somente o ca ractere que est i ver 
imediatamente a esquerda do CURSOR; 
portanto, devemos aprender a DESLO- 
CAR o cursor; observe as teclas 5 e 8; ne- 
las voce vera, em vermelho (ou amarelo), 
o seguinte: 



«=■ 



portanto, ao apertar SHIFT e as teclas 5 ou 
8, o cursor caminhara para a esquerda ou 
para a direita! Suponha que voce tivesse 
cometido a erro act ma mencionadoestan- 
do com o cursor na posigao indicada. 
Pressione SHIFT e 5 ao mesmo tempo e 
voce obtera: 



PRINT 7K19 



Pronto, o caractere que desejamos apagar 
esta 1 imediatamente h esquerda do cursor; 
para apaqa-lo basta pressionar SHIFT e a 
tecla (RUBOUT) simultaneamente; voce 
obfem: 



PRINT 



Agora coloque o sinal de " + " e a seguir 
pressione NEW LINE; o computador exe- 
cuta sua ordem e escrevera 16 no topo da 
tela! Se voce mandar o computador exe- 
cutar uma ordem que nao tem sentido, 
duas coisas podem ocorrer: ou ele uAo 



Para dominar 
seu computador 
pessoaj. va direto 
Nucleo 



Aulas de BASIC em turrrras 
reduzidas (12 alunos) com 
asststencia individual e um 
micro (TK82-C) 
permanentemente 
disponivel para cada 
2 alunos. 

NIVEL I - Linguagem BASIC 
e fundamentos de 
programacao. 
DURACAO:20horas 
PRE REQUISITOS: 
nenhum: o curso e para 
principiantes. 



■WELII- BASIC 
Avancado: Programacao 
de jogos, aplicacoes 
administrates e 
clentiftcas 

DURACAO:20horas 
PRE-REQUISITOS: Nivel 
ou equivalents. 
NiVELIII ■ Linguagem de 
maquina especial para o 
TK82-C 

DURAQAO:20horas 
PRE-REQUISITOS: Nivel II 
exame previo 




Local e Informacoes: 

NUCLEO DE ORIENTAQAO DE ESTUDOS 

Av. Brig Faria Uma, 1 .451 -Conj. 31 ■ 01461 -S. Paulo - SP 

Tel.: 813-4555 
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executa nada, aparecendo apenas os nii- 
meros por enquanto sem sentido no canto 
inferior da tela ou ele detecta o erro, nflo 
executando a ordem e apontando com o 
cursorEkde sintaxe) onde esta o erro; isto 
depende do tipo de erro que voce come- 
terh 
Experimente colocar: 



PRINT +- 



e a seguir NEW LINE! (O caradere "- 
esta na tecla J) 
Voce obtera: 



PRINT +B-3B 



Desloque entao o cursorCQpara a direita 
do sinal de " + " e apague-o; substitua-o 
pelo niimero 3: 



PRINT 3H-S 



e pressione NEW LINE ! Agora o computa- 
dor e capaz de entender a sua ordem e 
executara a aperagao, fazendo aparecer 
— 5 na tela! 

Vamos agora ordenar que o computador 
calcule o valor de una expressao mate- 
ma tica: 



print 10-2*5** 

3+3 s5 *i 



Neste ponto, varias observacoes s&o ne- 
cessarias: nao eonfunda a letra O com o 
numero zero, que e assim representado; 
D . O computador interprets o si mbolo " * " 
como urn sinal de MULTIPLICACAO, o 
simbolo "/" como um sinal de divisao e o 
simbolo "**" (tecla H) como um ainal de 
EXPONENCIAgAO. A exponenciagao e 
considerada a conta de maior prioridade, 
seguida pela mulriplicacao e divisao com 
igual prioridade e, a seguir, pela soma e 
subtracflo, tambem com igual prioridade; 
assim, esta expressao sera executada des- 
ta maneira: 

Figura 6 



10 — 2*5**2 + 3/5*2 
10 — 2*25 + 3/5*2 = 
10 — 50 + 3/5*2 = 
10-50 + 0.6*2 = 
10 — 50 + 1.2 = 
—40 + 1.2 = 
-38.8 



(Em caso de empate, a 1? operacao a ser 
executada sera a que estiver mais a es- 
querda) 

e o — 38.8 aparecera na tela; note que o 

computador usa V (ponto) 1 aoinves da"," 
(virgula), segundo a notaoao inglesa. 

Verifique que, o sinal de exponenciacao 

* * deve ser o da tecla onde esta a letra H ; 
nao adianta pressionar duas vezes o sinal 

* da tecla B! Apesar do efeito na tela ser o 
mesmo, o computador nao entendera sua 
ordem e dara um erro de sintaxe! 

Numa expressao matematica voce pode 
tambem utilizar os parenteses (letras I e 
O), porexemplo; 



PRINT 4-* (7-2} 



Neste caso, -a subtragao sera executada 
prime iro e voce obterd o numero 20, 
Surge agora a seguinte pergunta: eseeu 
desejar escrever uma palavra ou frase? E 

simples! Basta colocar a palavra ou frase 
entre aspas (", tecla P), por exemplo: 



PRINT "BEATLES"! 



e, a seguir, NEW LINE! 

Note que as aspas significam o seguinte: 
"computador, copie exatamente o que es- 
tiver eserito entre aspas"! De fato, experi- 
mente colocar: 



PRINT "3 +4 "J 



e NEW LINE! Sua ordem sera executada; 
ele oopiara 3 + 4 no topo da tela mas SEM 
executar a operacao! Portanto, voce po- 
dera colocar todos os caracteres que qui- 
ser (letras, niimeros, simbolos) entre as- 
pas . Se voce desej ar que as proprias aspas 
sejam copiadas no topo da tela, voce de- 
vera usar as aspas duplas (tecla O), da se- 



guinte maneira: 

PRINT BEHTLE5"" 



pressione NEW LINE e voce ira obter 
"BEATLES", ao inves de BEATLES, no 
canto superior da TV ! 

A esta altura, voce deve estar cansado(a) 
de escrever sempre no topo da te la ; vamos 
variar um pouco! Para isto e necessario 
saber que a tela tern disponiveis 22 linhas 
e 32 colunas numeradas de a. 2 1 e a 3 1 
respectivamente, serido que a posicao do 
canto superior esquerdo da tela e a posi- 
gao 0,0. Note que estas 22 linhas N AO IN- 
CLUEM a linha onde voce escreve a sua 
ordem; voce tern 2 linhas para isto, sem- 
pre disponiveis. Vamos entao escrever 
BEATLES a partir da linha 10 e coluna 5: 
(figura?) 
Basta fazer o seguinte: 



PRINT CTT IS ,5; 
"BEflTLES"! 



Preste atengao: a palavra AT nao e uma 
palavra-chave, nem letra, mas sim uma 
funcao e, para que possamos escreve-la, 
devemos mudar o cursor ddX^ia ralFi para 
fazer isto, pressione SHIFT e NEW LINE 
(FUNCTION) sirnultaneamente. Agora, 
com ocursoremE.apertea tecla C. Todas 
as palavras que estiverem abaixo de cada 
tecla sao tratadas como FUNCOES e, pa- 
ra abte-las na tela, e necessario o cursor 
estar em F (fig. 8). 



funcSo 




Nac ADIANTA tentar escrever a lungao; 
por exemplo, no caso, apertando a letra 
A e a letra Tea seguir um espacq (tecla 
SPACE)! Experimente fazer isto e ver o 
que ocorre! 



Figura 7 



Coluna 



Linha 



Coluna 5 



Linha 10 




MICROHOBBY 14 



Faca agora o seguinte: 

PRINT RT 12,28; 

■••BERT!_E:5"JB 

Tente explicar o que acontece! 

A instrucao LET 

Experiments, agora, tentar escrever uma 
palavra sem usar as aspas na ordem de 
PRINT. 



PRINT LOU 



Aoapertar NEW LINE, nada aparecera no 
canto esquerdo superior da tela , mas 1am- 
bem nao aparecera o cursor S indicando 
erro! Veja porcjue: quando uma letra ou 
grupo de letras aparece sem aspas , o com- 
putador interprets esta letra ou grupo co- 
mo uma VARIAvELMATEMATICA, cu- 
jo valor deveria estar em sua memdria; ele 
ira procura- la sem no entanto encontra-la 
e por isto nao podera escrever seu valor! 



Experimente, entao, fazer: 



LET LOyE=l 



(LET, letra L) 

e, a seguir, NEW LINE! Nada aparecera 

novamente no topo da tela! De fato, voce 

nao ordenou ao computador que ele es- 

crevesse mas sim que, em SUA MEMO- 

RIA, atribuisse a variavel LOVE o valor 

10! 

Experimente fazer agora: 



PRINT LOUEB 



O que voce obtem? Ora, ele ira procurar 
LOVE em sua merrtoria e ira achar o nu- 
mero 10 que sera entao escrito! Faca ago- 
ra: 



LET LOUE=LOUE+if 

(NEW LINE) 



LANCAMENTO 



PASS AGEM PAHA INFINITO 

SflnsAGlonai jogo onde voce tontara Bnconlr&re eat room um fabuloao waouro em urn, 
complexo LabinitUi , guardado por temvcis polvoa monstros. a com male de 400 pas- 
sob. Para ajuda, -let, voce coutara com ajgumaa sspadaa, que garamirao sua sobrevl- 
vencia na luta com oa mon&troa, 5 com oa prLeianeiroa erccarcerariua n&a v&rjas pas- 
sagana qub lhe indicarao a eammho a seguir Total mente em linguagern. de tn&quina 
com graficos f&ntaetlrcAiTLemfcB animadoB a Lre& niveis de diflmjldade para desaf 14- td 
Frerjo Cr* 7 000.00 

MIDWAY 

U ma grand sguerra mundsaJ «stasend<>lravadfi naa aguas do AUarmco Voce agora 6 
o com andante do submarine) atomico MIDWAY, sua miBs&o dastruip todafi as bases 
inlmigaaem iguae bcaailetraa Culdadocom os navies. *v;Geee minae espalhados pe 
las tnvasoros Para. auxiSia-lo podera eontar com uma frota da navios de it-flab as tec j - 
mente, v&rl&s bases aLiad&sg um computador d« burdo Um granda desafi& com gra- 
TlcoB e varias retinas am linguagern de ro&quma Prago £># 6 000,00 



JORNADA HAS ESTRELAS 



A sua. nave tnwrplantfiAria ENTREPKISE necesaiia livr&r a gaJA-xut dofl invasoree 
KHngon. e voce=, como comandantQ da nave. Lera a ardua mlssao de deatrul Eos Um 
jogofamoso no mundo todoetri uma desuaa melhc-res ^ersoea pelaSoftknstian. com 
ofei^&graficoasensacionatB.PrecD Crl5.Ob6.od 



8* DIMENSAO- 



Agoravocfljapodo wrumfliperamaemseumicrocotTiputadcr: em£* DTME-NsAodoia 

jogDfiaRitacjaaimoB para teetar sua coordanaijao motora. Em SPACE INVADER VOCfc 
tem os or igl n&is inv &so res atacando s ua nave e em ABTEHOiD voce de va pousar em um 
planetae. para tanu>dever& ultra paaaaroe DbeiAoulosq.uev&emaauarFentietentAndo 
destrul lo. Grandee jogos om hnguagem demaQUina. Ppbqo: Crt S.000.00 



VISITA AO CASSINO 



Quatro grandes Jogos em um bo ca^a-niqueis. roleta. 21. e perseguipao ratal fazom 
parte doBLesenaacionalconiunio Todoa osjogoscomgrificoeeroLinasom Linguagem 
de mAQulna, para voce que gnatadeaposLar e Lorocr Pt^o. Gr4 5.000,00 



• 10 JOQOS EXCITANTES PARA 1 K- 



Dbz pequenoa jogQB para voce incrementar e apfonder bastante oe efeltoa de progra- 
nirj^aode Jr.sg.ua e brat.JJi ] h * js com iridao. Se voce n4o dig pfta da axpa>ne^ da 16 K Jft pode- 
ra UrrentrBtflnimanfcoctjni flfltfteeneacUina] fita Se vooejadispoede 16K coraprepara 
Incremental Ids e bera exoelonies jogos. Prepo Crl 4 000 4 00 



Ccmpre conosco c& duaJouei pdiie ao 8'asii ^em 
dospesas adicionaFs enviantoo urn cheque auia • 

do e nominal a KRiSTiAK ELI TflOKiCA L \a* m^s 
preciia wisar ) . e ga ra*iia o fftce-cmrrren to de nos&o 
tnlormanvo NDViDADES KRiSTiftN. tDtalmeme 



(Hpfelfenl 

Bus da Laps, ISO grupo SOS 

TOs.: 252-9057 - 232-S948 

CEF 20021 - Bio de Janeiro RJ 

TodftS A3 fttae vioem emb»L*gem Jacrftdft. com gravat;4ti prorisalonaL. pare auj t«r«n- 
tt*. A Ki'jsLlAr. Irocftra ^uajquer fita que aeja anvl»da, cm defeltoB de fabrlca^io. 



Note que o sinal de igual usado no compu - 
tador nao tem o significado usual; de fato, 
senaabsurdomatematicamentedizerque 
um numero e igua) a ele mesmo mais um! 
Portanto, o Sirial de igual signifies: arri- 
bua a variavel da esquerda o numero ou 
resultado da opera<j3o que esti ver a di rei 
ta! 
Diqite agora: 



PRINT "LOUE"j LDUEB 

(NEW LINE) 

Note bem o eleito das aspas! O ponto e vir- 
gula e necesadrio para o computador en- 
tender que deve escrever coisas distintas! 
Se voce nao qostou do fato dos escritos sai- 
rem "grudados" , basfa colocar um espago 
em branoo apos a palavra LOVE entre as- 
pas; para obte-lo, pressione a tecla SPA- 
CE: 



PRINT "LOVE ";LOUI 



Lembre-se, na memoria do computador 
agora esta a variavel LOVE associada ao 
numero 1 1 . Obviamente se voce desliga- 
lo ele ira "esquecer" isto e ao ser ligado 
novamente nada aparecera na tela se vo- 
ce ordenar: 



PRINT LOU 



Entretanto, voce pode "apagar" as varia- 
veis da memdria do computador sem 
desligalo, usando a ordem (key word): 

CLEAR (letra X) 

Experimente entao fazer CLEAR , 
NEW LINE e, a seguir, faca: 



PRINT LOUEB 



Como esperado, nada serd escrito, pois o 
computador "limpou" a sua mem6ria! 
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Como fazer sua 
assinatura 



A nossa Revista nao sera dis- 
tribuida nas bancas. Para obter 
seu exemplar mensal, contendo 
muitos programas para o seu TK, 
muitas dicas e premios interessan- 
tissimos, voce devera fazer uma 
assinatura: o prego anual da assi- 
natura edeCrf 1 1 .800. Porem, ate 
30 de junho, manteremos o prego 
de Cr$ 9.900. 

Alem da Revista , voce ganha 
ra uma f ita com dois jogos ineditos , 
exelusivos para nossos assinantes: 
um deles necessita apenas 2 K de 
RAM para ser rodado; o outro ja 
exige uma expansao de 16 K. Esta 
fita, se comercializada, teria um 
preco aproximado de Cr$ 6.900. 



Voce devera preencher o cu- 
pom anexo e coloca-lo num enve- 
lope, junto a um cheque nominal 
ou vale postal a favor de Microme- 
gaPublicagoese Material Didatico 
Ltda. , no valor de Cr$ 9.900 (ofer- 
ta valida ate 30 de junho) , O enve- 
lope devera ser selado e enderega- 
do a Micromega P. M. D. Ltda. — 
Caixa Postal n? 60061 — CEP 
05096 — Sao Paulo — SP. 

Faca as contas e nao perca es- 
ta oportunidade. Fazendo sua assi- 
natura durante esta promocao, vo- 
ce estara pagando pouquissimo 
por exemplar (lembre-se: so a fita 
gue voce ganha de brinde vale 
Cr$ 6.900.) e estara iniciando uma 
valiosa colecao a partir do n? 1. 



Olha so o que esta 
reservado para o n? 2 




Programas do Leitor: 

Muitos programas interessantissi- 
mos bolados ou adaptados por 
nossos leitores. 

Programas do Mes: 

Como fazer grdf icos de alta resolu- 

gao (256 x 256 ponfos) no seu TK. 

Como memorizar a tela para uso 

posterior. 

Dicas 

O uso de FLAG para voce nao se 
perder no meio de um programa 
complicado. 

Novidades 

As fungoes especiais do TK 85. 

Curses 

Continuagao do Curso Basic TK e 
comego do Assembly Z80 do TK. 

Pequenos Aniincios 

Para esta secao voce podera enviar 
um pequeno anuncio para publi- 
caoao gratuita. 
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I 



PfinEfTlfl 1 1 IICPD 

o ma/or revendedor TK no Brasil 



m 



Atendimento personalizado. 

Muito rnais que uma frase de propaganda 

6 um compromisso honrado. 



Ipanema Micro, uma boutique 
eletrfintca com calor humano. 



Financiamento em ate 24 pagtos. 
sem entrada e leasing. 



Expansoes de memdria p/TK82-C de 16Ke 64 K 
Joystick - tmpressom - linha complete MICROSOFT 



SOFTWARE E COMPUTADORES USADOS 



Temos tambem CURSO DE BASIC 




Rua Viscondede Piraja, 640 - l_DJa 106 
CEP 2 2 4 1 ■ Rio de Janeiro - FU 
Fone: (021) 259-1516 

Telex: (021) 31107 ■ Ipanema-RJ 



APAGADQR INSTANTANEO P/FITAS K-7 

SEM PILHAS OU ENERGIA ELETRICA 




PARA 
APAGAR 
BASTA PASSAR 
A FITA IDA E 
VOLTA PELA 
ABERTURA 



r win no 



Apaga em apenas 4 segundos, qualquer fita cassete 
independente de sua durocoa, eliminando todos os 
ruidos e chiados decorrentes de frequentes regravagoes. 
Poupa tempo e melhora a qualidade na reutilizacao. 
Gravondo a fita enn cima de outro gravacoo, a 
qualidode da reproducao sera reduzido 
consideravelmente, clem decriar confusao na gravacao, 
principalmente se esta far par tempo mais curto que a 
anterior, 

Desgravando com o TWIN GO, nada disso acontece e 
voce ainda tern uma garantia de 5 onos contro defeitos 
ou qualquer deficiencia tecnica do oparelho. 
TWIN GO, indispensavel a todos os adeptos na 
utilizagao de fitas cossete, 




Cr$ 6.864 ,00 

p/assinantes da revisto 

MICROHOBBY - promOHjao 

valida ate 30/06/83 



micromega 



Pedtdos por carta a 

MICROMEGA PMD LTDA . 

Calxa Postal 6008 1 ■ CEP 05096 - Sao Paulo- SP 

anexando Cheque Nominal ou Vale Postal, 
induindo mais despesas de f rete no valor 
deCr$ 500,00, autoritando o recebimento 
do compra no prazo de 15 dios. 



